home *** CD-ROM | disk | FTP | other *** search
/ Machine Hunter - Digital … Kit (Europe) (En,Fr,De) / Machine Hunter - Digital Press Kit (Europe) (En,Fr,De).bin / mac / EIDOS.dir / 00160_Script_160 < prev    next >
Text File  |  1997-05-14  |  621b  |  21 lines
  1. on maccopy
  2.   
  3.   openXLib ":Xtras:macxtra:filecopy"  -- custom xtra
  4.   
  5.   set fileName = the pathName&"screens:"&the name of cast the mousecast  -- Display Open Dialog and return the fileName
  6.   if fileName > "" then
  7.     put filename
  8.     set loc = "desktop folder:"
  9.     set wFileName = doSaveAsDlg(loc&the name of cast the mousecast, "Tiff files@*.tif")
  10.     if wFileName > "" then   
  11.       put wfilename
  12.       
  13.       set result = copyFile(wFileName, fileName) -- this is the call that does the copying
  14.       put result
  15.     end if  
  16.   end if
  17.   
  18.   closeXLib ":Xtras:macxtra:filecopy"
  19.   abort
  20.   
  21. end maccopy